<% public gato %>
colSpan=5> ▼  שחזור סיסמה
<% dim c ,r dim visitor_name, email, user_name, user_pass email=request.form("email") if email=nil then %> <% else ''''''''''''''''' FUNCTION CheckEmail(parmaddress) set myRegExp = new RegExp ' Set the pattern to check for a word followed by ' an @ followed by a word myRegExp.pattern = "\w+\@[.\w]+" if myRegExp.Test(parmaddress) then CheckEmail=True else CheckEmail=false end if END FUNCTION address=email validmail=checkemail(address) IF validmail=false THEN %> <% ELSE ''on error resume next set c=server.createobject("adodb.connection") c.open DSN_NAME set r=server.createobject("adodb.recordset") sql="select * from club where email='" & email & "'" r.open sql,c,3 if not r.eof or not r.bof then visitor_name = r("visitor_name") user_name = r("user_name") user_pass = r("user_pass") set r=nothing set c=nothing '''''''''Auto send mail response! SMTPServer = "out.inter.net.il" strTO = email msgSubject = "
" & biz_name & "


" & visitor_name & ", שלום." & "
" & "בקשת לשחזר את סיסמתך." & "
" & "שם משתמש:" & user_name & "
" & "סיסמה:" & user_pass & "
   תודה, " & biz_name & "

" set msg = Server.CreateOBject( "JMail.Message" ) 'msg.Logging = true msg.silent = true 'msg.LazySend = False ''''''''msg.Bcc = "" msg.FromName = biz_name msg.From = "siterecover@shopcenter.co.il" msg.AddRecipient strTO, "" msg.Subject = biz_name & " - שחזור סיסמה. " msg.Body = msgSubject 'msg.CharSet = "IL-ASCII" msg.ContentType = "text/html" if not msg.Send( SMTPServer ) then response.write '' "Mail was not sended" & " = " & strTO & email response.write '' "
" & msg.log else ''response.write "Mail was sended ok" end if set msg = Nothing '''''''''END send mail response! %> <% else %> <% end if end if end if %>
   
, נא הזן כתובת אי מייל
. אנא מלא את השדות ונסה שנית
לחץ כאן לתיקון השגיאה
   
, כתובת אימייל שגויה
. אנא השלם את השדות ונסה שנית
לחץ כאן לתיקון השגיאה
   
תודה לך והמשך גלישה נעימה.
הסיסמה נשלחה למייל.
   
כתובת המייל שצוינה אינה נמצאה במאגר הנתונים.
סגור חלון